subroutine translate_molecular( rx, ry, rz, pos, n)
use prec
use cell, only: box
implicit none
   !----------------------------------------------------------------------------
   real(q), intent(in) :: rx, ry, rz ! randum numbers between 0 and 1
   integer, intent(in) :: n
   real(q)             :: pos(3,n)
   !----------------------------------------------------------------------------
   real(q) :: neworg(3), rndnum(3)
   integer :: nunitcell, i
   !----------------------------------------------------------------------------
   rndnum = (/ rx, ry, rz /)
   neworg = rndnum * box
   !
   forall ( i=1:n ) pos(:,i) = pos(:,i) + neworg
   !
return
end subroutine
